package utils;
use strict;
use warnings;
use Data::Dumper;

sub isEmail
{
	my $str = shift;
	return undef unless $str;
	
	if ($str =~ /[^\@]+?\@[^\.]+?\..*/){
		return 1;
	}	
	
	return undef;
}

1;